<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-json-lib.asp"-->
<!--#include file="lib/asp-common-lib.asp"-->
<%
Response.ContentType = "application/json"
chks=request("chks")
act=request("act")
aChk=split(chks,",")
sql=""


' response.write chks
'先清除由于conn.open而产生的警告以 Errors 集合中的 Error 对象的方式出现，但并不中止程序的执行
conn.errors.clear
'事务开始
conn.BeginTrans
' set cmd=Server.CreateObject("ADODB.Command")
' cmd.ActiveConnection=conn
if CheckPostFlag(session("aaPostFlag"),3,5) and act="删除" then
    for i=0 to ubound(aChk)
        ' response.write aChk(i)
        sql="delete from offer where offer_id="&aChk(i)
        call ExecuteCommand(sql,false)
    next
end if
' set cmd=nothing
'判断没有任何sql执行过，就清楚错误信息，因为在conn.open执行后，conn.Errors.Count就等于1，下面一段就是测试代码
'if sql="" then conn.errors.clear
' if conn.errors.count>0 then
  ' response.write "数据库连接对象有错了，看看是哪一步出的错："&"<br>"
  ' for i =0 to conn.errors.count-1
    ' response.write conn.errors.item(i)&"<br>"
  ' next
' else
  ' response.write "很完美!"
' end if
dim json
set json=jsObject()
if conn.Errors.Count=0 then
    '如果没有conn错误，则执行事务提交
    conn.CommitTrans
    if sql="" then 
        json("bStatus")=false
        json("sInfo")="没有进行任何操作"
    else
        json("bStatus")=true
    end if
else
    '否则回滚
    conn.RollbackTrans
    json("bStatus")=false
    json("sInfo")="数据库错误"
end if
json.Flush
%>
<!--#include file="lib/connclose.asp"-->

